home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue38 / Dynatab / DYNATAB3.DPR < prev    next >
Encoding:
Text File  |  1998-06-01  |  575 b   |  28 lines
  1. {$APPTYPE CONSOLE}
  2. program DynaTab3;
  3. uses
  4.   DB, DBTables;
  5. var
  6.   i: Integer;
  7. begin
  8.   with TTable.Create(nil) do
  9.   try
  10.     DatabaseName := 'DBDEMOS';
  11.     TableName := 'BIOLIFE.DB';
  12.     Open;
  13.     writeln;
  14.     for i:=0 to Pred(FieldCount) do
  15.     begin
  16.       write('Field ',i,': (',Fields[i].Name,')');
  17.       write(' displays "',Fields[i].DisplayName,'"');
  18.       if Fields[i].DataType = ftMemo then
  19.         write(' - ',Fields[i].Value)
  20.       else
  21.         write(' - ',Fields[i].DisplayText);
  22.       writeln
  23.     end;
  24.     Close
  25.   finally
  26.     Free
  27.   end
  28. end.